#!/bin/awk -f
# Synopsis: sesta esta.rep (need preceeding esta0 calculation -> esta.rep)
{i++;n[$2" "$3]++;p[$2" "$3]=p[$2" "$3]" "i}
END{
  for(i in n){j++; split(i,a); print p[i]," # "n[i],a[1]};
  print "#  "j" nonidentical tilings";
}

